<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta name="generator" content="Lazarus SynEdit Html Exporter">
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Без имени</title>
</head>
<body text="black" bgcolor="#FFFFFF"><pre><code><font  size=3 face="Courier New"><font color="black"><b>unit </b>Unit1;

<i>{$mode objfpc}{$H+}

</i><b>interface

uses
  </b>Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
  SynEdit, SynHighlighterPas, SynHighlighterCpp, SynHighlighterPython,
  SynExportHTML;

<b>type

  </b><i>{ TForm1 }

  </i>TForm1 = <b>class</b>(TForm)
    Button1: TButton;
    Button2: TButton;
    SynCppSyn1: TSynCppSyn;
    SynEdit1: TSynEdit;
    SynExporterHTML1: TSynExporterHTML;
    SynPasSyn1: TSynPasSyn;
    SynPythonSyn1: TSynPythonSyn;
    <b>procedure </b>Button1Click(Sender: TObject);
    <b>procedure </b>Button2Click(Sender: TObject);
  <b>private

  public

  end</b>;

<b>var
  </b>Form1: TForm1;

<b>implementation

</b><i>{ TForm1 }

</i><b>procedure </b>TForm1.Button1Click(Sender: TObject);
<b>begin
  </b>SynEdit1.Highlighter:=SynPasSyn1;
<b>end</b>;

<b>procedure </b>TForm1.Button2Click(Sender: TObject);
<b>begin
  </b>SynExporterHTML1.ExportAll(SynEdit1.Lines);
  SynExporterHTML1.SaveToFile('1.html');
<b>end</b>;

<b>initialization
  </b><i>{$I unit1.lrs}

</i><b>end</b>.

</font>
</code></pre>
</body>
</html>